home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9207.d64 / cls-demo 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  561b  |  28 lines
  1. 10 REM ***********************
  2. 20 REM *                     *
  3. 30 REM * CLS-DEMO 1 IN BASIC *
  4. 40 REM *                     *
  5. 50 REM ***********************
  6. 60 REM
  7. 70 REM FS = FARB-RAM-START
  8. 80 REM SP = BILDSCHIRM-GROESSE
  9. 90 REM FE = FARB-RAM-ENDE
  10. 100 :
  11. 105 GOSUB 310
  12. 110 FS=55296:SP=40*25:FE=FS+SP
  13. 120 FB=PEEK(53281)
  14. 130 : FOR Y=0 TO 12
  15. 140 :      FOR X=0 TO 40
  16. 150 :        POKE FS+X,FB
  17. 160 :        POKE FE-X,FB
  18. 170 :      NEXT X
  19. 180 :    FS=FS+40
  20. 190 :    FE=FE-40
  21. 200 : NEXT Y
  22. 210 END
  23. 300 :
  24. 310 :REM BILDSCHIRM FUELLEN
  25. 320 FOR I=0 TO 22
  26. 330 PRINT"CLEAR-SCREEN-BASCI-DEMO 1  64'ER 07/1992";
  27. 340 NEXT:RETURN
  28.